﻿Public Class ConsultarNivel

    Public Sub New(ByVal p_codigo As Integer)
        InitializeComponent()
        cargarDatos(p_codigo)
    End Sub

    Private Sub ConsultarNivel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub cargarDatos(ByVal p_codigo As String)
        Dim objNivel As Hashtable
        objNivel = Logica.Gestor.obtenerNivel(p_codigo)
        lblDepartamento.Text = Logica.Gestor.obtenerNombreDepartamentoPorCodigo(objNivel("codigoDepartamento"))
        lblSalarioMinimo.Text = objNivel("salarioMinimo")
        lblSalarioMaximo.Text = objNivel("salarioMaximo")
        lblNivel.Text = objNivel("nivel")
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Me.Close()
    End Sub
End Class
